home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / rsltform.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.5 KB  |  39 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "Rsltform.h"
  10. //---------------------------------------------------------------------------
  11. #pragma resource "*.dfm"
  12. TResultForm *ResultForm;
  13. //---------------------------------------------------------------------------
  14. __fastcall TResultForm::TResultForm(TComponent* Owner)
  15.   : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TResultForm::SpeedButton2Click(TObject *Sender)
  20. {
  21.   AnsiString strText;    // Variable to hold display text
  22.   int iCounter;  // Loop counter variable
  23.  
  24.   // Build a string containing the query
  25.   strText = "";
  26.   for (iCounter = 0; iCounter <= Query1->SQL->Count - 1; iCounter++)
  27.       strText += Query1->SQL->Strings[iCounter];
  28.  
  29.   // Display the query text
  30.   MessageDlg("The underlying query is: \n\n" + strText,
  31.               mtInformation, TMsgDlgButtons() << mbOK, 0 );
  32.  
  33. }
  34. //---------------------------------------------------------------------
  35. void __fastcall TResultForm::SpeedButton1Click(TObject *Sender)
  36. {
  37.   Close();
  38. }
  39. //---------------------------------------------------------------------